home *** CD-ROM | disk | FTP | other *** search
/ Pascal Super Library / Pascal Super Library (CW International)(1997).bin / BORL_TIP / TI100 / TI257.ASC < prev    next >
Text File  |  1991-09-11  |  2KB  |  133 lines
  1.  
  2.  
  3.  
  4.  
  5.  
  6.  
  7.  
  8.  
  9.   PRODUCT : TURBO GRAPHIX TOOLBOX                      NUMBER : 257
  10.   VERSION : 1.00x
  11.        OS : PC-DOS
  12.      DATE : March 13, 1986                               PAGE : 1/2
  13.     TITLE : AT&T LOADSCREEN PATCH
  14.  
  15.  
  16.  
  17.  
  18.   The following modifications may be made to the GRAPHIX.SYS file
  19.   of the Turbo Graphix Toolbox to allow the LoadScreen routine to
  20.   function properly on an AT&T 6300.
  21.  
  22.   1.   Move the procedures SwapScreen, CopyScreen and InvertScreen
  23.        to a position just above the SaveScreen Procedure.
  24.  
  25.   2.   Change the SaveScreen procedure (after the main begin) to
  26.        read as follows: ( The lines which have been changed have
  27.        the symbol {Changed} next to them.)
  28.  
  29.   begin
  30.    move(mem[GrafBase:0000],mem[seg(ScreenGlb^):0000],
  31.        (ScreenSizeGlb+1) shl 1);                    {Changed}
  32.     IOErr := False;
  33.     {picture := ptr(GrafBase,0); }                   {Changed}
  34.     picture := ScreenGlb;                          {Changed}
  35.     assign(PictureFile,FileName);
  36.     {$I-} rewrite(PictureFile); {$I+}
  37.     IOCheck;
  38.     if not ioerr then
  39.     begin
  40.       {$I-} write(PictureFile,picture^); {$I+}
  41.       IOCheck;
  42.     end;
  43.     if not ioerr then
  44.     begin
  45.       {$I-} close(PictureFile); {$I+}
  46.       IOCheck;
  47.     end;
  48.     move(mem[seg(ScreenGlb^):0000],mem[GrafBase:0000],   {Changed}
  49.        (ScreenSizeGlb+1) shl 1);
  50.   end;
  51.  
  52.   3.   Change the LoadScreen procedure (after the main begin) to
  53.        read as follows: ( The lines which have been changed have
  54.        the symbol {Changed} next to them.)
  55.  
  56.   procedure LoadScreen(FileName:wrkstring);
  57.   type PicFile = file of ScrenType;
  58.   var Picture:screenpointer;
  59.       PictureFile : PicFile;
  60.   begin
  61.  
  62.  
  63.  
  64.  
  65.  
  66.  
  67.  
  68.  
  69.  
  70.  
  71.  
  72.  
  73.  
  74.  
  75.   PRODUCT : TURBO GRAPHIX TOOLBOX                      NUMBER : 257
  76.   VERSION : 1.00x
  77.        OS : PC-DOS
  78.      DATE : March 13, 1986                               PAGE : 2/2
  79.     TITLE : AT&T LOADSCREEN PATCH
  80.  
  81.  
  82.  
  83.  
  84.     {picture := ptr(GrafBase,0);}                    {Changed}
  85.     picture := ScreenGlb;                          {Changed}
  86.     assign(Picture,FileName);
  87.     {$I-} reset(PictureFile); {$I+}
  88.     if IOResult<>then Error(11,5)
  89.     else
  90.     begin
  91.       read(PictureFile,picture^);
  92.       close(PictureFile);
  93.     end;
  94.     move(mem[seg(ScreenGlb^):0000],mem[GrafBase:0000],   {Changed}
  95.        (ScreenSizeGlb + 1) shl 1);
  96.   end;
  97.  
  98.  
  99.  
  100.  
  101.  
  102.  
  103.  
  104.  
  105.  
  106.  
  107.  
  108.  
  109.  
  110.  
  111.  
  112.  
  113.  
  114.  
  115.  
  116.  
  117.  
  118.  
  119.  
  120.  
  121.  
  122.  
  123.  
  124.  
  125.  
  126.  
  127.  
  128.  
  129.  
  130.  
  131.  
  132.  
  133.